home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / programs / prog115 < prev    next >
Text File  |  1995-06-29  |  460b  |  25 lines
  1. # simple pushButton test
  2.  
  3. proc createDialog {} {
  4.   xmQuestionDialog .qd managed
  5.   [.qd parent] setValues -deleteResponse do_nothing
  6.   [.qd parent] resources r
  7. #  [.qd parent] getValues -deleteResponse d
  8. #  puts stdout "del: $d"
  9. }
  10.  
  11. xtAppInitialize -class Program
  12.  
  13. xmPushButton .fred managed
  14.  
  15. .fred activateCallback createDialog
  16.  
  17. topLevelShell .top -deleteResponse do_nothing
  18. xmLabel .top.label managed
  19. .top popup
  20. # .top resources r
  21.  
  22. . realizeWidget
  23.  
  24. . mainLoop
  25.